home *** CD-ROM | disk | FTP | other *** search
/ Cine Live 72 / Cine Live 72.iso / pc / Scripts / EditTrackEnable.k < prev    next >
Encoding:
Text File  |  1999-02-05  |  5.5 KB  |  180 lines
  1. module oEditTrackEnable is cPlugin
  2. has
  3.     release Editor:
  4.         GetIO()
  5.             do
  6.                 result := oIOTrackEnablePlugin;
  7.             end;
  8.     end;
  9.  
  10. end;
  11.  
  12. class cTrackEnableCommand is cTargetableCommand;
  13. has
  14.     TrackNumber;
  15.     Description; 
  16.     Red; Green; Blue;
  17.  
  18.     CanExecute()
  19.         do
  20.             result := true;
  21.         end;
  22.  
  23.     Execute(...)
  24.         do
  25.             if self.CanExecute() then
  26.                 self.TrackEnable(self.TrackNumber);
  27.             end;
  28.         end;
  29.     
  30.     ExecuteTarget(theTarget, ...)
  31.         do
  32.  
  33.         end;
  34.  
  35.     InitializeParameters(theRuntime, theEvent)
  36.         do
  37.             self.cTargetableCommand:InitializeParameters(theRuntime, theEvent);
  38.             if self.TrackNumber = void then
  39.                 self.TrackNumber := 1;
  40.             end;
  41.         end;
  42.  
  43.     TrackEnable(TrackNumber)
  44.         do
  45.             if self.Target.Tracks <> void then
  46.                 if self.Target.tracks.count() >= tracknumber then
  47.                     (self.Target.tracks @ trackNumber).Enable(true);
  48.                 end;
  49.             end;
  50.         end;
  51.         
  52.  
  53.     release Editor:  
  54.         GetIO()
  55.             do
  56.                 result := oIOTrackEnableCommand;
  57.             end;
  58.     end;
  59. end;
  60.  
  61.  
  62.  
  63. class cTrackDisableCommand is cTargetableCommand;
  64. has
  65.     TrackNumber;
  66.     Description; 
  67.     Red; Green; Blue;
  68.  
  69.     CanExecute()
  70.         do
  71.             result := true;
  72.         end;
  73.  
  74.     Execute(...)
  75.         do
  76.             if self.CanExecute() then
  77.                 self.TrackDisable(self.TrackNumber);
  78.             end;
  79.         end;
  80.     
  81.     ExecuteTarget(theTarget, ...)
  82.         do
  83.  
  84.         end;
  85.     
  86.     InitializeParameters(theRuntime, theEvent)
  87.         do
  88.             self.cTargetableCommand:InitializeParameters(theRuntime, theEvent);
  89.             if self.TrackNumber = void then
  90.                 self.TrackNumber := 1;
  91.             end;
  92.         end;
  93.  
  94.     TrackDisable(TrackNumber)
  95.         do
  96.             if self.Target.Tracks <> void then
  97.                 if self.Target.tracks.count() >= tracknumber then
  98.                     (self.Target.tracks @ trackNumber).Enable(false);
  99.                 end;
  100.             end;
  101.         end;
  102.         
  103.  
  104.     release Editor:  
  105.         GetIO()
  106.             do
  107.                 result := oIOTrackDisableCommand;
  108.             end;
  109.     end;
  110. end;
  111.  
  112.  
  113.  
  114.  
  115.  
  116. release Editor:
  117.  
  118.  
  119. object oIOTrackEnableCommand is cIOLeafCommandLine
  120. with
  121.     Icon is "\$00\$00\$7F\$FE\$7F\$FE\$48\$12\$48\$12\$78\$1E\$78\$1E\$48\$12\$48\$12\$78\$1E\$78\$1E\$48\$12\$48\$12\$7F\$FE\$7F\$FE\$00\$00\$00\$00\$78\$1E\$78\$1E\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$78\$1E\$78\$1E\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$08\$08\$08\$05\$05\$05\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$08\$08\$08\$05\$05\$05\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$08\$08\$08\$05\$05\$05\$A5\$00\$00\$A5\$00\$00\$A5\$00\$00\$A5\$92\$92\$92\$48\$48\$48\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$92\$92\$92\$48\$48\$48\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$92\$92\$92\$48\$48\$48\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00";
  122.     IOItemClass is cTrackEnableCommand;
  123.     Name is "Enable Track";
  124.     Words is [
  125.         cIOTargetMenuButton with Field is Target; Width is 8; end,
  126.         cIOLeftLabel with Text is "TrackNumber:"; Width is 15; end,
  127.         cIOIntegerBox with Field is TrackNumber; Range is [0, 32767]; Width is 5; end
  128.  
  129.     ];
  130. end;
  131.  
  132.  
  133. object oIOTrackDisableCommand is cIOLeafCommandLine
  134. with
  135.     Icon is "\$00\$00\$7F\$FE\$7F\$FE\$48\$12\$48\$12\$78\$1E\$78\$1E\$48\$12\$48\$12\$78\$1E\$78\$1E\$48\$12\$48\$12\$7F\$FE\$7F\$FE\$00\$00\$00\$00\$78\$1E\$78\$1E\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$7F\$FE\$78\$1E\$78\$1E\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$08\$08\$08\$05\$05\$05\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$08\$08\$08\$05\$05\$05\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$08\$08\$08\$05\$05\$05\$A5\$00\$00\$A5\$00\$00\$A5\$00\$00\$A5\$92\$92\$92\$48\$48\$48\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$92\$92\$92\$48\$48\$48\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$92\$92\$92\$48\$48\$48\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$A5\$00\$00\$A5\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$A5\$A5\$A5\$A5\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00\$00";
  136.     IOItemClass is cTrackDisableCommand;
  137.     Name is "Disable Track";
  138.     Words is [
  139.         cIOTargetMenuButton with Field is Target; Width is 8; end,
  140.         cIOLeftLabel with Text is "TrackNumber:"; Width is 15; end,
  141.         cIOIntegerBox with Field is TrackNumber; Range is [0, 32767]; Width is 5; end
  142.  
  143.     ];
  144. end;
  145.  
  146.  
  147.  
  148.  
  149.  
  150. object oIOTrackEnableLabel is "QuickTime Tracks";
  151.  
  152. object oIOTrackEnablePlugin is cIOPlugin
  153. with
  154.     ToolLines is [
  155.     ];
  156.     ElementLines is [
  157.     ];
  158. -- if our plugin had it's own events, they would appear here:
  159.     EventLines is [
  160.  
  161.     ];
  162.  
  163. -- These are the commands our plugin implements.
  164.     CommandLines is [
  165.         cIOSeedListLine 
  166.         with 
  167.             Label is oIOTrackEnableLabel;
  168.             Lines is [
  169.                 cIOSeedLine with IO is oIOTrackEnableCommand; end,
  170.                 cIOSeedLine with IO is oIOTrackDisableCommand; end
  171.             ];
  172.         end
  173.     ];
  174. -- if our plugin had it's own openers, they would appear here:
  175.     Openers is [
  176.     ];
  177. end;
  178.  
  179. end; -- release Editor
  180.